home *** CD-ROM | disk | FTP | other *** search
/ Info-Mac 4 / Info_Mac IV CD-ROM (Pacific HiTech Inc.)(August 1994).iso / Science / RLaB / rlib / hilb.r < prev    next >
Text File  |  1994-04-25  |  353b  |  22 lines
  1. //-------------------------------------------------------------------//
  2. //
  3. //  Syntax:    hilb ( N )
  4.  
  5. //  Description:
  6.  
  7. //  Generate a NxN Hilbert matrix.
  8.  
  9. //-------------------------------------------------------------------//
  10.  
  11. hilb = function(n)
  12. {
  13.   local(i,j,h);
  14.  
  15.   for(i in 1:n) {
  16.     for(j in 1:n) {
  17.       h[i;j] = 1/(i+j-1);
  18.     }
  19.   }
  20.   return h;
  21. };
  22.